home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CHKWELL.SRC < prev    next >
Text File  |  1990-11-03  |  31KB  |  1,199 lines
  1. ;\|
  2. ;CHKWELL.SRC     Translated from CHKWELL.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CHECK_UP 11:57:46 AM   3/ 6/90   |
  4. DO_DEFINES:
  5.     define(FLAG|A|1||)
  6.     define(CTR6|N|2||)
  7.     define(fld_lctr|N|2||)
  8.     define(ISITCLIN|A|1||)
  9.     define(MEM_EYES|A|5||)
  10.     define(MEM_EARS|A|4||)
  11.     define(MEM_MOBIL|A|5||)
  12.     define(MEM_MEM|A|4||)
  13.     define(MEM_BOWELS|A|4||)
  14.     define(MEM_BLAD|A|4||)
  15.     define(MEM_HOUSE|A|12||)
  16.     define(YES.NO|A|1||)
  17.     define(TICK|A|1||5)
  18.     define(CTR3|N|1||)
  19.     define(MEM_NAME_CHK|A|27||)
  20.     define(PROC4|A|1||)
  21.     define(REF_CTR|N|2||)
  22.     define(silly|a|1||)
  23.     define(MEM_DOC2|N|1||)
  24.     define(CON_CTR|N|2||)
  25.     define(EXTRAS|N|3||)
  26.     define(CON_NUM|N|3||)
  27.     define(CLIN_NUM|N|3||)
  28.     define(EMERG_NUM|N|3||)
  29.     define(ISIT_EMER|A|1||)
  30.     define(MEM_DOC|A|1||)
  31.     define(NY|A|1||)
  32.     define(AGE|N|2||)
  33.     define(BP_DROP|N|2||)
  34.     define(MEM_CTR|N|1||)
  35.     define(FBS_ADD|N|5|2|)
  36.     define(MEM_BP_AGE|N|3||)
  37.     define(AOD|A|1||15)
  38.     define(TD|S|8||)
  39.     define(MN|A|30||15)
  40.     define(DO|A|8||15)
  41.     define(QU|A|10||15)
  42.     define(DS|A|30||15)
  43.     define(QTY|N|3||15)
  44.     define(ISN|N|3||15)
  45.     define(CTR|N|2||)
  46.     define(CTR2|N|2||)
  47.     define(LNE.LNGTH|N|2||)
  48.     define(OK|A|1||)
  49.     define(LNE.LN2|N|2||)
  50.     define(NUM.MSG|N|2||)
  51.     define(MESSAGE|A|78||15)
  52.     define(ENT.MASK|A|10||)
  53.     define(LLC|N|2||)
  54.     define(WD|N|2||)
  55.     define(HT|N|2||)
  56.     define(MCNTR|N|5||)
  57.     define(MCNTR2|N|5||)
  58.     define(MCNTR3|N|5||)
  59.     define(MCNTR4|N|5||)
  60.     define(MEM_DIAB|A|1||)
  61.     define(MEM_NEW|A|1||)
  62.     define(MEM_BP|A|1||)
  63.     define(MEM_THY|A|1||)
  64.     define(MEM_OLD|A|1||)
  65.     define(MEM_RECD|S|8||)
  66.     define(MEM_RECT|S|8||)
  67.     define(MEM_RECB|S|8||)
  68. OPEN_FILES:
  69.     open(PATIENT||0|)
  70.     open(DIABETIC||0|)
  71.     open(RP||0|)
  72.     open(RECALLS||0|)
  73.     open(REFER||0|EXIT)
  74.     open(PROCEDE||1|EXIT)
  75.     open(MEMORY||0|EXIT)
  76.     open(GPSETUP||0|EXIT)
  77. STARTCHK:
  78.     mount(CHECK|S)
  79.     CTR = (9)
  80.     for(CTR2|1|5|1)
  81.         {
  82.         enter(TICK[CTR2]|"YN"||STARTCHK|Y|Y|N|64|CTR|N)
  83.         CTR = (CTR+1)
  84.         }
  85.     enter(YES.NO|"YN"||STARTCHK|Y|Y|N|44|15|N)
  86.     if YES.NO = ("Y") then run("PATREC")
  87.     trap(S|G|SAVE_RECS)
  88.     trap(D|I)
  89.     trap(C|G|CLR_RECS)
  90.     trap(Q|G|EXIT)
  91.     trap(J|I)
  92. MOUNT_SCRS:
  93.     mount(SCREEN2|S||)
  94.     CHECK_TYPE = (7)
  95.     pmsg("F1 - Help  F2 - Memo"|1|24|N|N|S|)
  96.     date(TD|G)
  97. START_UP:
  98.     trap(J|I)
  99.     MEM_OLD = ("Y")
  100. PAT.NAME:
  101.     clrlne(1|22)
  102.     enter(PATIENT.NAME||||||||)
  103.     find(G|PATIENT.NAME|PAT.NAME|)
  104.     DIAB_REF = (RECORD.NUMBER)
  105.     find(M|DIAB_REF|NO_DIABX|)
  106. NO_DIAB:
  107.     goto STARTALL
  108. NO_DIAB2:
  109.     gosub GET_AGE
  110.     trap(%|I)
  111.     trap(U|I)
  112.     saves(10)
  113.     window(20|12|2|35)
  114.     ISITCLIN = ("")
  115.     pmsg("Is this a clinic or update?"|1|1|N|N|S|)
  116.     enter(ISITCLIN|"YN"|||Y|Y|N|30|1|N)
  117.     if ISITCLIN = ("Y") then CHECK_DATE = (TD)
  118.     trap(%|D)
  119.     trap(U|D)
  120.     redsp(10)
  121.     enter(CHECK_DATE||||N|Y|N|||N)
  122.     enter(CHECK_OP||||Y|Y|N|||N)
  123.     if CHECK_OP = ("") reent
  124.     enter(CHK_DOC|"1234"|||N|Y|N|||N)
  125.     enter(DOC_BP1|"1234567890"|||N|Y|N|||N)
  126.     enter(DOC_BP2|"1234567890"|||N|Y|N|||N)
  127.     if DOC_BP1 > (0) then MEM_BP = ("Y")
  128. NO_DIAB3:
  129.     FLAG = ("X")
  130.     trap(J|G|RUN_MEMO)
  131.     enter(ONOWN|"YN "|ONOWN_HLP||Y|Y|N|||N)
  132.     enter(EYES|" OPSB"|EYES_HLP||Y|Y|N|||N)
  133.     enter(EARS|" ODA"|EARS_HLP||Y|Y|N|||N)
  134.     enter(WALK||WALK_HLP||N|Y|N|||N)
  135.     enter(MOBILITY|"GPWB"|MOBIL_HLP||Y|Y|N|||N)
  136.     enter(UP|" YN"|UP_HLP||Y|Y|N|||N)
  137.     enter(MEMORY|" GPBD"|MEM_HLP||Y|Y|N|||N)
  138.     enter(BOWELS|" OCIDS"|BOWELS_HLP||Y|Y|N|||N)
  139.     enter(BLADDER|" CIA"|BLAD_HLP||Y|Y|N|||N)
  140.     enter(MEDIC|"YN"|MEDIC_HLP||Y|Y|N|||N)
  141.     enter(HOME_HELP|"YNR "|HOME_HLP||Y|Y|N|||N)
  142.     enter(MEALS|"YNR "|MEALS_HLP||Y|Y|N|||N)
  143.     enter(NURSE|"YNR "|NURSE_HLP||Y|Y|N|||N)
  144.     enter(HOUSE|"H3NFO "|HOUSE_HLP||Y|Y|N|||N)
  145.     enter(SMOK||SMOK_HLP||N|Y|N|||N)
  146.     if SMOK > (0) gosub SMOK_MSG
  147.     enter(EXERCISE||EX_HLP||N|Y|N|||N)
  148.     enter(ALCOHOL||ALC_HLP||N|Y|N|||N)
  149.     enter(ANGINA||ANG_HLP||N|Y|N|||N)
  150.     enter(DIET|"GBP "|DIET_HLP||Y|Y|N|||N)
  151.     enter(WT1||||N|Y|N|||N)
  152.     enter(WT2||||N|Y|N|||N)
  153.     IDEAL_WT = (WT2-81*0.85)
  154.     if WT1 > (IDEAL_WT) gosub WEIGHT
  155.     enter(PROT|" T+"|||N|N|N|||N)
  156.     if PROT => ("+") gosub REF_PROT
  157.     enter(SUG||SUG_HLP||N|N|N|||N)
  158.     if SUG > (0.25) gosub REF_SUG
  159.     enter(BP_CHECK_NUM|" 123"|||N|Y|N|||N)
  160.     enter(BP1||||N|Y|N|||N)
  161.     enter(BP2||||N|Y|N|||N)
  162.     enter(BP1S||BPST_HLP||N|Y|N|||N)
  163.     gosub BP_CHECK
  164.     enter(PULSE||||N|Y|N|||N)
  165.     enter(REG|" YN"|REG_HLP||Y|Y|N|||N)
  166.     if REG = ("N") then enter(APEX||||N|Y|N|||N)
  167.     enter(FEV||||N|Y|N|||N)
  168.     enter(COMMENT1||||Y|Y|N|||N)
  169.     enter(COMMENT2||||Y|Y|N|||N)
  170.     gosub DRUGSCH
  171.     enter(DRUGS_CHECKED|"NY"|||Y|Y|N|||N)
  172.     enter(REF_CHECK|"NY"|||Y|Y|N|||N)
  173.     NEXT_CHECK = (CHECK_DATE+186)
  174.     enter(NEXT_CHECK||||N|Y|N|||N)
  175.     YES.NO = ("")
  176.     enter(YES.NO|"YN"|||Y|Y|N|||N)
  177.     if YES.NO = ("Y") gosub PRINT
  178. SAVE_RECS:
  179.     if RECORD.NUMBER = (0) goto PAT.NAME
  180. SAVE_DONE:
  181.     DIAB_REF = (RECORD.NUMBER)
  182.     CHECK_TYPE = (7)
  183.     save(DIABETIC|N|Y)
  184.     find(M|RECORD.NUMBER|EXIT|)
  185.     SMOKER = ("Y")
  186.     save(PATIENT|N|Y)
  187.     if FLAG = ("Y") then run("recmenu")
  188.     FLAG = ("")
  189. STARTX:
  190.     MEM_DIAB = ("")
  191.     MEM_NEW = ("")
  192.     MEM_BP = ("")
  193.     MEM_THY = ("")
  194.     MEM_CTR = (0)
  195.     MEM_RECD = (0)
  196.     MEM_NAME_CHK = ("")
  197.     MEM_RECT = (0)
  198.     MEM_CTR = (0)
  199.     MEM_OLD = ("")
  200.     MEM_RECB = (0)
  201.     AGE = (0)
  202.     BP_DROP = (0)
  203.     FBS_ADD = (0)
  204.     MEM_BP_AGE = (0)
  205.     for(CTR|12|23|1)
  206.         {
  207.         clrlne(1|CTR)
  208.         }
  209.     pmsg("F1 - Help  F2 - Memo  [Ctrl-Y]- Print"|1|24|N|N|S|)
  210.     clr(PATIENT|B)
  211.     goto START_UP
  212. DEL_RECS:
  213.     del(DIABETIC|Y|)
  214.     clr(PATIENT|B)
  215.     goto STARTX
  216. CLR_RECS:
  217.     clr(PATIENT|B)
  218.     clr(DIABETIC|B)
  219.     goto STARTX
  220. EXIT:
  221.     if FLAG = ("X") do
  222.         {
  223.         FLAG = ("Y")
  224.         goto SAVE_DONE
  225.         }
  226.     run("recmenu")
  227. PRT.MSG:
  228.     LNE.LNGTH = (0)
  229.     for(MCNTR|1|NUM.MSG|1)
  230.         {
  231.         LNE.LN2 =siz(A|MESSAGE[MCNTR])
  232.         if LNE.LN2 > (LNE.LNGTH) then LNE.LNGTH = (LNE.LN2)
  233.         }
  234.     NUM.MSG = (NUM.MSG + 1)
  235.     if LNE.LNGTH < (26) then LNE.LNGTH = (26)
  236.     LNE.LNGTH = (LNE.LNGTH + 4)
  237.     LLC = (40 - (LNE.LNGTH / 2))
  238.     HT = (NUM.MSG + 3)
  239.     WD = (LNE.LNGTH + 1)
  240.     saves(1)
  241.     window(LLC|24|HT|WD)
  242.     NUM.MSG = (NUM.MSG - 1)
  243.     pmsg(""||||||)
  244.     for(MCNTR|1|NUM.MSG|1)
  245.         {
  246.         pmsg(MESSAGE[MCNTR]|3||N|N|S|)
  247.         }
  248.     pmsg("Press any key to continue"|3||Y|N|S|)
  249.     redsp(1)
  250.     ret
  251. NO_DIABX:
  252.     clr(DIABETIC|B)
  253.     MESSAGE[1] = ("NO CHECK UP RECORD FOR THIS PATIENT")
  254.     NUM.MSG = (1)
  255.     gosub PRT.MSG
  256.     goto NO_DIAB
  257. SEEALL:
  258. STARTALL1:
  259. STARTALL:
  260.     if RECORD.NUMBER = (0) goto ENDIT
  261.     COD.REF = (RECORD.NUMBER)
  262.     find(M|COD.REF|NEXTALL2|)
  263.     MEM_RECD = (COD.D[4])
  264.     MEM_RECT = (COD.D[6])
  265.     MEM_RECB = (COD.D[9])
  266. NEXTALL2:
  267.     RP.REF = (RECORD.NUMBER)
  268.     find(M|RP.REF|ENDITX|)
  269.     CTR = (1)
  270. TESTALL:
  271.     AOD[CTR] = (AUTO.ON.DEMAND)
  272.     MN[CTR] = (MEDICATION)
  273.     DO[CTR] = (DOSE)
  274.     QU[CTR] = (QUANTITY)
  275.     DS[CTR] = (DIRECTIONS)
  276.     QTY[CTR] = (RP.DISP.QTY)
  277.     ISN[CTR] = (ISSUE.NO)
  278.     trim(MN[CTR]|T)
  279.     trim(QU[CTR]|T)
  280.     just(QU[CTR]|L)
  281.     trim(DO[CTR]|T)
  282.     just(DO[CTR]|L)
  283.     trim(DS[CTR]|T)
  284.     just(DS[CTR]|L)
  285.     CTR2 = (CTR+11)
  286.     if CTR2 = (23) goto ENDIT
  287.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  288.     silly = ("")
  289.     find(N|RP|ENDIT|)
  290.     if RP.REF <> (RECORD.NUMBER) goto ENDIT
  291.     CTR = (CTR+1)
  292.     goto TESTALL
  293. CLEARXALL:
  294.     clr(RP|B)
  295.     clr(RECALLS|B)
  296.     clrmem(AOD|15)
  297.     clrmem(MN|15)
  298.     clrmem(DO|15)
  299.     clrmem(QU|15)
  300.     clrmem(DS|15)
  301.     clrmem(QTY|15)
  302.     clrmem(ISN|15)
  303.     ret
  304. ENDIT:
  305.     find(M|RECORD.NUMBER|PAT.NAME|)
  306.     DIAB_REF = (RECORD.NUMBER)
  307.     find(M|DIAB_REF|NO_DIAB2|)
  308.     goto NO_DIAB2
  309. ENDITX:
  310.     MESSAGE[1] = ("NO DRUGS ON REPEAT")
  311.     NUM.MSG = (1)
  312.     gosub PRT.MSG
  313.     goto ENDIT
  314. GET_AGE:
  315.     AGE = (TD-DATE.OF.BIRTH/365)
  316.     ret
  317. BP_CHECK:
  318.     if MEM_BP = ("Y") do
  319.         {
  320.         if BP_CHECK_NUM => (2) do
  321.             {
  322.             if BP1 > (DOC_BP1) gosub REFER_BP
  323.             if BP2 > (DOC_BP2) gosub REFER_BP
  324.             BP_DROP = (BP1-BP1S)
  325.             if BP_DROP > (20) gosub REFER_BP
  326.             }
  327.         ret
  328.         }
  329.     else
  330.         {
  331.         if BP_CHECK_NUM = (2) do
  332.             {
  333.             if BP1 > (AGE+110) gosub REFER_BP
  334.             }
  335.         if BP2 > (105) gosub REFER_BP
  336.         BP_DROP = (BP1-BP1S)
  337.         if BP_DROP > (20) gosub REFER_BP
  338.         }
  339.     ret
  340. SMOK_HLP:
  341.     MESSAGE[1] = ("Number per day eg 16")
  342.     NUM.MSG = (1)
  343.     gosub PRT.MSG
  344.     ret
  345. SMOK_MSG:
  346.     MESSAGE[1] = ("There is a risk of cancer,heart disease,gangrene,and bronchitis")
  347.     NUM.MSG = (1)
  348.     gosub PRT.MSG
  349.     ret
  350. REF_PROT:
  351.     MESSAGE[1] = ("If there is more than a trace -send sample for orgs and sens.")
  352.     MESSAGE[2] = ("Refer to Dr if protein persists etc")
  353.     NUM.MSG = (2)
  354.     gosub PRT.MSG
  355.     ret
  356. SUG_HLP:
  357.     MESSAGE[1] = ("Enter sugar in urine as a decimal eg 1/4 = .25")
  358.     NUM.MSG = (1)
  359.     gosub PRT.MSG
  360.     ret
  361. REF_SUG:
  362.     MESSAGE[1] = ("Do a blood sugar.If high refer to Dr.")
  363.     MESSAGE[2] = ("If patient is a diabetic refer to Dr if more than a third of tests over .25")
  364.     NUM.MSG = (2)
  365.     gosub PRT.MSG
  366.     ret
  367. REG_HLP:
  368.     MESSAGE[1] = ("Enter a Y if regular or a N if not. Do apical rate if N")
  369.     NUM.MSG = (1)
  370.     gosub PRT.MSG
  371.     ret
  372. REFER_BP:
  373.     MESSAGE[1] = ("There is a definate BP problem here - refer to Dr.")
  374.     NUM.MSG = (1)
  375.     REF_CHECK = ("Y")
  376.     gosub PRT.MSG
  377.     ret
  378. BPST_HLP:
  379.     MESSAGE[1] = ("Enter standing systolic - It should not drop more than 20")
  380.     NUM.MSG = (1)
  381.     gosub PRT.MSG
  382.     ret
  383. DIET_HLP:
  384.     MESSAGE[1] = ("G = Good diet B = Bad diet P = Poor")
  385.     NUM.MSG = (1)
  386.     gosub PRT.MSG
  387.     ret
  388. EX_HLP:
  389.     MESSAGE[1] = ("Enter a number for hours per week exercise")
  390.     NUM.MSG = (1)
  391.     gosub PRT.MSG
  392.     ret
  393. DRUGSCH:
  394.     MESSAGE[1] = ("NOW CHECK PATIENTS DRUG THERAPY IS CORRECT")
  395.     NUM.MSG = (1)
  396.     gosub PRT.MSG
  397.     mount(DRUGSCR|S)
  398.     RP.REF = (RECORD.NUMBER)
  399.     find(M|RP.REF|NOSCR|)
  400.     CTR = (17)
  401. NEXTRPS:
  402.     trim(MEDICATION|T)
  403.     if CTR = (29) do
  404.         {
  405.         pmsg("There are more drugs"|65|20|N|N|D|)
  406.         goto NOSCR
  407.         }
  408.     if CTR => (23) do
  409.         {
  410.         CTR6 = (CTR-6)
  411.         pmsg(MEDICATION|31|CTR6|N|N|D|)
  412.         }
  413.     else
  414.         {
  415.         pmsg(MEDICATION|1|CTR|N|N|D|)
  416.         }
  417.     CTR = (CTR+1)
  418.     find(N|RP|NOSCR|)
  419.     if RP.REF <> (RECORD.NUMBER) goto NOSCR
  420.     goto NEXTRPS
  421. NOSCR:
  422.     enter(COMMENT1|||NOSCR|Y|Y|N|||N)
  423.     enter(COMMENT2||||Y|Y|N|||N)
  424.     mount(SCREEN2|S)
  425.     ret
  426. NOCOD:
  427.     COD.PAT.NAME = (PATIENT.NAME)
  428.     COD.REF = (RECORD.NUMBER)
  429.     save(RECALLS|N|N)
  430.     find(M|COD.REF||)
  431.     goto SAVE_RECS
  432. RUN_MEMO:
  433.     goto RUN_MEMOX
  434. RUN_MEMOX:
  435.     trap(J|G|EXIT_MEM)
  436.     trap(S|G|SAVE_MEMO)
  437.     trap(D|I)
  438.     trap(C|I)
  439.     trap(Q|G|EXIT_MEM)
  440.     trap(L|G|EXIT_MEM)
  441. MOUNT:
  442.     mount(NEW|S||)
  443. START:
  444.     enter(PATIENT.NAME||||Y|Y|N|||N)
  445.     find(G|PATIENT.NAME|START|)
  446.     PROC_REF = (RECORD.NUMBER)
  447.     find(M|PROC_REF|START2CL|)
  448.     NY = ("")
  449.     pmsg("DO YOU WANT TO UPDATE THE MEMOS FIRST:"|10|20|N|N|S|)
  450.     enter(NY|"YN"|||Y|Y|N|50|20|N)
  451.     if NY = ("Y") goto UPMEMO
  452.     clrlne(1|20)
  453. START2:
  454.     gosub LINE
  455.     if CTR2 = (0) then CTR2 = (1)
  456. SATRT3:
  457.     MEM_DOC = ("")
  458.     for(CTR|CTR2|6|1)
  459.         {
  460.         PROC_DATE[CTR] = (TD)
  461.         PROC_UP = (TD)
  462.         enter(PROC_DATE[CTR]|||SATRT3|N|N|N|||N)
  463.         enter(PROC[CTR]||||Y|Y|N|||N)
  464.         enter(PROC_DOC[CTR]|"12345"|||Y|Y|N|||N)
  465.         MEM_DOC = (PROC_DOC[CTR])
  466.         enter(PROC_OP[CTR]||||Y|Y|N|||N)
  467.         if PROC_OP[CTR] = ("") reent
  468.         if PROC_EX[CTR] = ("") do
  469.             {
  470.             PROC_REF = (RECORD.NUMBER)
  471.             PROC4 =mid(PROC[CTR]|1|1|)
  472.             if PROC4 = ("*") do
  473.                 {
  474.                 PROC_EX[CTR] = ("X")
  475.                 gosub STARTAGAIN
  476.                 save(PROCEDE|N|N)
  477.                 find(M|PROC_REF||)
  478.                 }
  479.             enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  480.             enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  481.             enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  482.             enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  483.             enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  484.             enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  485.             }
  486.         }
  487.     gosub LINE
  488.     for(CTR|1|6|1)
  489.         {
  490.         if PROC[CTR] = ("") then PROC_DATE[CTR] = (0)
  491.         }
  492.     goto SATRT3
  493. SAVE_MEMO:
  494.     for(CTR|1|6|1)
  495.         {
  496.         if PROC[1] = ("") do
  497.             {
  498.             clr(PROCEDE|B)
  499.             goto START
  500.             }
  501.         if PROC[CTR] = ("") do
  502.             {
  503.             PROC_DATE[CTR] = (0)
  504.             PROC_OP[CTR] = ("")
  505.             PROC_DOC[CTR] = ("")
  506.             PROC_DONE[CTR] = ("")
  507.             }
  508.         }
  509.     if PROC_REF = (0) goto START
  510.     PROC_REF = (RECORD.NUMBER)
  511.     if PROC_REF = (0) goto START
  512.     save(PROCEDE|Y|Y|)
  513.     MEM_DOC = ("")
  514.     goto START
  515. EXIT_MEM:
  516.     if PROC[1] = ("") goto RUNPATREC
  517.     for(CTR|1|6|1)
  518.         {
  519.         if PROC[CTR] = ("") do
  520.             {
  521.             PROC_DATE[CTR] = (0)
  522.             PROC_OP[CTR] = ("")
  523.             PROC_DOC[CTR] = ("")
  524.             PROC_DONE[CTR] = ("")
  525.             }
  526.         }
  527.     if PROC_REF > (0) then save(PROCEDE|N|Y)
  528. RUNPATREC:
  529.     trap(S|G|SAVE_RECS)
  530.     trap(D|I)
  531.     trap(C|G|CLR_RECS)
  532.     trap(Q|G|EXIT)
  533.     trap(J|G|RUN_MEMO)
  534.     mount(SCREEN2|S)
  535.     gosub STARTALLXX
  536.     goto PAT.NAME2
  537. LINE:
  538.     for(CTR2|1|6|1)
  539.         {
  540.         if PROC[CTR2] = ("") do
  541.             {
  542.             if CTR2 = (6) do
  543.                 {
  544.                 pops
  545.                 goto SATRT3
  546.                 }
  547.             ret
  548.             }
  549.         }
  550.     CTR = (2)
  551.     if PROC_DATE[1] = (TD) do
  552.         {
  553.         for(CTR3|1|6|1)
  554.             {
  555.             enter(PROC_DONE[CTR3]|" Y"|||Y|Y|N|||N)
  556.             }
  557.         pops
  558.         goto SAVE_MEMO
  559.         }
  560.     for(CTR2|1|5|1)
  561.         {
  562.         PROC[CTR2] = (PROC[CTR])
  563.         PROC_DATE[CTR2] = (PROC_DATE[CTR])
  564.         PROC_OP[CTR2] = (PROC_OP[CTR])
  565.         PROC_DOC[CTR2] = (PROC_DOC[CTR])
  566.         PROC_DONE[CTR2] = (PROC_DONE[CTR])
  567.         CTR = (CTR+1)
  568.         }
  569.     PROC[6] = ("")
  570.     PROC_DATE[6] = (0)
  571.     PROC_OP[6] = ("")
  572.     PROC_DOC[6] = ("")
  573.     PROC_DONE[6] = ("")
  574.     PROC_EX[6] = ("")
  575.     goto LINE
  576.     ret
  577. UPARROW:
  578.     CTR2 = (CTR2-1)
  579.     CTR = (CTR2)
  580.     ret
  581. STARTAGAIN:
  582.     trap(%|I)
  583.     trap(J|I)
  584.     trap(Q|G|EXITX)
  585.     trap(U|I)
  586.     trap(C|I)
  587.     trap(S|I)
  588.     saves(1)
  589.     window(20|15|5|40)
  590.     trap(Q|G|EXITX)
  591.     find(B|HEADING||)
  592.     pmsg("IS IT EMERGENCY:"|1|1|N|N|S|)
  593.     enter(ISIT_EMER|"YN"|||Y|Y|N|20|1|N)
  594.     if ISIT_EMER = ("Y") goto SCR2
  595.     gosub SCREEN2
  596.     CLIN_NUM = (CLIN_NUM)
  597.     pmsg("ENTER SPECIALTY:"|1|2|N|N|S|)
  598.     enter(CLIN_NUM||||N|Y|N|20|2|N)
  599. ADDER:
  600.     REF_COD = (MEM_DOC)
  601.     find(M|REF_COD|EXIT|)
  602.     if ISIT_EMER <> ("Y") do
  603.         {
  604.         CLIN_REF[CLIN_NUM] = (CLIN_REF[CLIN_NUM]+1)
  605.         }
  606.     else
  607.         {
  608.         EMERG_REF[EMERG_NUM] = (EMERG_REF[EMERG_NUM]+1)
  609.         }
  610.     save(REFER|N|Y)
  611.     CLIN_NUM = (0)
  612.     CON_NUM = (0)
  613.     EMERG_NUM = (0)
  614.     ISIT_EMER = ("")1
  615.     redsp(1)
  616.     trap(%|D)
  617.     trap(J|G|EXIT_MEM)
  618.     trap(U|D)
  619.     trap(Q|G|EXIT)
  620.     ret
  621. SCREEN2:
  622.     saves(2)
  623.     window(1|25|24|78)
  624.     for(REF_CTR|1|22|1)
  625.         {
  626.         pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  627.         }
  628.     CON_CTR = (REF_CTR+1)
  629.     for(REF_CTR|1|22|1)
  630.         {
  631.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  632.         CON_CTR = (CON_CTR+1)
  633.         }
  634.     pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  635.     enter(CLIN_NUM||||N|Y|N|65|13|N)
  636.     if CLIN_NUM = (0) reent
  637.     if CLIN_NUM > (44) reent
  638.     redsp(2)
  639.     ret
  640. SCREEN3:
  641.     saves(2)
  642.     window(1|25|24|78)
  643.     for(REF_CTR|1|22|1)
  644.         {
  645.         pmsg(@R;REF_CTR;@N;" ";@R;CLINICS[REF_CTR];@N|1|REF_CTR|N|N|S|)
  646.         }
  647.     CON_CTR = (REF_CTR+1)
  648.     for(REF_CTR|1|22|1)
  649.         {
  650.         pmsg(@R;CON_CTR;@N;" ";@R;CLINICS[CON_CTR];@N|25|REF_CTR|N|N|S|)
  651.         CON_CTR = (CON_CTR+1)
  652.         }
  653.     pmsg("ENTER NUMBER:"|60|12|N|N|S|)
  654.     enter(EMERG_NUM||||N|Y|N|65|13|N)
  655.     if EMERG_NUM = (0) reent
  656.     if EMERG_NUM > (44) reent
  657.     redsp(2)
  658.     ret
  659. SCR2:
  660.     gosub SCREEN3
  661.     EMERG_NUM = (EMERG_NUM)
  662.     pmsg("ENTER SPECIALTY EMERGENCY:"|1|3|N|N|S|)
  663.     enter(EMERG_NUM||||N|Y|N|30|3|N)
  664.     goto ADDER
  665. EXITX:
  666.     goto STARTCHK
  667. UPMEMO:
  668.     enter(PROC_DONE[1]|" YNSCRO"|||Y|Y|N|||N)
  669.     enter(PROC_DONE[2]|" YNSCRO"|||Y|Y|N|||N)
  670.     enter(PROC_DONE[3]|" YNSCRO"|||Y|Y|N|||N)
  671.     enter(PROC_DONE[4]|" YNSCRO"|||Y|Y|N|||N)
  672.     enter(PROC_DONE[5]|" YNSCRO"|||Y|Y|N|||N)
  673.     enter(PROC_DONE[6]|" YNSCRO"|||Y|Y|N|||N)
  674.     clrlne(1|22)
  675.     goto START2
  676. START2CL:
  677.     clr(PROCEDE|B)
  678.     goto START2
  679. PAT.NAME2:
  680.     goto NO_DIAB3
  681. PRINT:
  682.     mount(CHKREP|R|P)
  683.     pchr(P|1)
  684.     gosub GET_MEM
  685.     pfmt(1|||N|N|)
  686.     pfmt(2|||N|N|)
  687.     pfmt(3|||N|N|)
  688.     pfmt(4|||N|N|)
  689.     pfmt(5|||N|N|)
  690.     pfmt(6|||N|N|)
  691.     pfmt(7|||N|N|)
  692.     fld_lctr = (0)
  693.     gosub PRINTRP
  694.     fld_lctr = (fld_lctr+7)
  695.     if REF_CHECK = ("Y") do
  696.         {
  697.         pmsg(%14;"                  REFERRED TO DOCTOR"|||N|N|P|)
  698.         fld_lctr = (fld_lctr+1)
  699.         }
  700.     CTR3 = (22-fld_lctr)
  701.     if CTR3 <= (0) goto MOUNTAGAIN
  702.     for(CTR2|1|CTR3|1)
  703.         {
  704.         pmsg(""|||N|N|P|)
  705.         }
  706.     pfmt(8|||N|N|)
  707.     pblnk(1)
  708. MOUNTAGAIN:
  709.     mount(SCREEN2|S)
  710.     gosub STARTALLXX
  711.     ret
  712. PRINTRP:
  713.     RP.REF = (RECORD.NUMBER)
  714.     find(M|RP.REF|RETPRINT|)
  715.     CTR = (1)
  716. TESTALLX:
  717.     if CTR = (12) goto RETPRINT
  718.     fld_lctr = (fld_lctr+1)
  719.     AOD[CTR] = (AUTO.ON.DEMAND)
  720.     MN[CTR] = (MEDICATION)
  721.     DO[CTR] = (DOSE)
  722.     QU[CTR] = (QUANTITY)
  723.     DS[CTR] = (DIRECTIONS)
  724.     QTY[CTR] = (RP.DISP.QTY)
  725.     ISN[CTR] = (ISSUE.NO)
  726.     trim(MN[CTR]|T)
  727.     trim(QU[CTR]|T)
  728.     just(QU[CTR]|L)
  729.     trim(DO[CTR]|T)
  730.     just(DO[CTR]|L)
  731.     trim(DS[CTR]|T)
  732.     just(DS[CTR]|L)
  733.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|||N|N|P|)
  734.     find(N|RP|RETPRINT|)
  735.     if RP.REF <> (RECORD.NUMBER) goto RETPRINT
  736.     CTR = (CTR+1)
  737.     goto TESTALLX
  738. RETPRINT:
  739.     PROC_REF = (RECORD.NUMBER)
  740.     find(M|PROC_REF|RETPRINTX|)
  741.     for(CTR2|1|6|1)
  742.         {
  743.         if PROC[CTR2] = ("") goto RETPRINTX
  744.         pmsg(PROC_DATE[CTR2];"   ";PROC[CTR2]|||N|N|P|)
  745.         fld_lctr = (fld_lctr+1)
  746.         }
  747. RETPRINTX:
  748.     ret
  749. STARTALLXX:
  750.     if RECORD.NUMBER = (0) goto ENDITXXX
  751.     COD.REF = (RECORD.NUMBER)
  752.     find(M|COD.REF|NEXTALL2XX|)
  753.     MEM_RECD = (COD.D[4])
  754.     MEM_RECT = (COD.D[6])
  755.     MEM_RECB = (COD.D[9])
  756. NEXTALL2XX:
  757.     RP.REF = (RECORD.NUMBER)
  758.     find(M|RP.REF|ENDITXXX|)
  759.     CTR = (1)
  760. TESTALLOP:
  761.     AOD[CTR] = (AUTO.ON.DEMAND)
  762.     MN[CTR] = (MEDICATION)
  763.     DO[CTR] = (DOSE)
  764.     QU[CTR] = (QUANTITY)
  765.     DS[CTR] = (DIRECTIONS)
  766.     QTY[CTR] = (RP.DISP.QTY)
  767.     ISN[CTR] = (ISSUE.NO)
  768.     trim(MN[CTR]|T)
  769.     trim(QU[CTR]|T)
  770.     just(QU[CTR]|L)
  771.     trim(DO[CTR]|T)
  772.     just(DO[CTR]|L)
  773.     trim(DS[CTR]|T)
  774.     just(DS[CTR]|L)
  775.     CTR2 = (CTR+11)
  776.     if CTR2 = (23) goto ENDITXXX
  777.     pmsg(AOD[CTR];" ";MN[CTR];" ";DO[CTR];" ";QU[CTR];" ";DS[CTR];" ";QTY[CTR];" ";ISN[CTR]|1|CTR2|N|N|S|)
  778.     silly = ("")
  779.     find(N|RP|ENDITXXX|)
  780.     if RP.REF <> (RECORD.NUMBER) goto ENDITXXX
  781.     CTR = (CTR+1)
  782.     goto TESTALLOP
  783. ENDITXXX:
  784.     ret
  785. ALC_HLP:
  786.     MESSAGE[1] = ("ENTER NUMBER OF PINTS A WEEK - 1 PUB GIN=1/2 PINT")
  787.     NUM.MSG = (1)
  788.     gosub PRT.MSG
  789.     ret
  790. ANG_HLP:
  791.     MESSAGE[1] = ("ENTER NUMBER OF ATTACKS PER WEEK")
  792.     NUM.MSG = (1)
  793.     gosub PRT.MSG
  794.     ret
  795. WEIGHT:
  796.     MESSAGE[1] = ("THERE IS AN OBESITY PROBLEM HERE")
  797.     NUM.MSG = (1)
  798.     gosub PRT.MSG
  799.     ret
  800. OED_HLP:
  801.     MESSAGE[1] = ("Graded from 0 to 3")
  802.     NUM.MSG = (1)
  803.     gosub PRT.MSG
  804.     ret
  805. ONOWN_HLP:
  806.     MESSAGE[1] = ("LIVING ALONE Y OR N")
  807.     NUM.MSG = (1)
  808.     gosub PRT.MSG
  809.     ret
  810. EYES_HLP:
  811.     MESSAGE[1] = ("(O)K,(S)PECS,(P)ARTIAL,(B)LIND")
  812.     NUM.MSG = (1)
  813.     gosub PRT.MSG
  814.     ret
  815. EARS_HLP:
  816.     MESSAGE[1] = ("(O)K,(D)EAF,(A)ID")
  817.     NUM.MSG = (1)
  818.     gosub PRT.MSG
  819.     ret
  820. WALK_HLP:
  821.     MESSAGE[1] = ("CAPABILITY IN MILES OR PART OF A MILE")
  822.     NUM.MSG = (1)
  823.     gosub PRT.MSG
  824.     ret
  825. MOBIL_HLP:
  826.     MESSAGE[1] = ("AROUND HOME -(G)OOD,(P)OOR,(W)HEELCHAIR,(B)EDRIDDEN")
  827.     NUM.MSG = (1)
  828.     gosub PRT.MSG
  829.     ret
  830. UP_HLP:
  831.     MESSAGE[1] = ("CAN THE PATIENT MANAGE STAIRS Y/N")
  832.     NUM.MSG = (1)
  833.     gosub PRT.MSG
  834.     ret
  835. MEM_HLP:
  836.     MESSAGE[1] = ("(G)OOD,(P)OOR,(B)AD,(D)EMENTED")
  837.     NUM.MSG = (1)
  838.     gosub PRT.MSG
  839.     ret
  840. BOWELS_HLP:
  841.     MESSAGE[1] = ("(O)K,(C)ONSTIPATED,(D)IARRHOEA,(I)NCONTINENT,O(S)TOMY")
  842.     NUM.MSG = (1)
  843.     gosub PRT.MSG
  844.     ret
  845. BLAD_HLP:
  846.     MESSAGE[1] = ("(C)ONTINENT,(I)NCONTINENT,C(A)THETER")
  847.     NUM.MSG = (1)
  848.     gosub PRT.MSG
  849.     ret
  850. MEDIC_HLP:
  851.     MESSAGE[1] = ("? ON MEDICATION Y/N")
  852.     NUM.MSG = (1)
  853.     gosub PRT.MSG
  854.     ret
  855. HOME_HLP:
  856.     MESSAGE[1] = ("HOME HELP - (Y)ES,(N)O,(R)EQUIRED")
  857.     NUM.MSG = (1)
  858.     gosub PRT.MSG
  859.     ret
  860. MEALS_HLP:
  861.     MESSAGE[1] = ("MEALS ON WHEELS - (Y)ES,(N)O,(R)EQUIRED")
  862.     NUM.MSG = (1)
  863.     gosub PRT.MSG
  864.     ret
  865. NURSE_HLP:
  866.     MESSAGE[1] = ("NURSE IN ATTENDANCE - Y - N - (R)EQUIRED")
  867.     NUM.MSG = (1)
  868.     gosub PRT.MSG
  869.     ret
  870. HOUSE_HLP:
  871.     MESSAGE[1] = ("(H)OUSE,(F)LAT,PART(3),(N)URSING HOME,(O)THER")
  872.     NUM.MSG = (1)
  873.     gosub PRT.MSG
  874.     ret
  875. GET_MEM:
  876.     if EYES = ("O") then MEM_EYES = ("OK")
  877.     if EYES = ("S") then MEM_EYES = ("SPECS")
  878.     if EYES = ("P") then MEM_EYES = ("PART")
  879.     if EYES = ("B") then MEM_EYES = ("BLIND")
  880.     if EARS = ("O") then MEM_EARS = ("OK")
  881.     if EARS = ("D") then MEM_EARS = ("DEAF")
  882.     if EARS = ("A") then MEM_EARS = ("AID")
  883.     if MOBILITY = ("G") then MEM_MOBIL = ("GOOD")
  884.     if MOBILITY = ("P") then MEM_MOBIL = ("POOR")
  885.     if MOBILITY = ("W") then MEM_MOBIL = ("WHEEL")
  886.     if MOBILITY = ("B") then MEM_MOBIL = ("BED")
  887.     if MEMORY = ("G") then MEM_MEM = ("GOOD")
  888.     if MEMORY = ("P") then MEM_MEM = ("POOR")
  889.     if MEMORY = ("B") then MEM_MEM = ("BAD")
  890.     if MEMORY = ("D") then MEM_MEM = ("DEMT")
  891.     if BOWELS = ("O") then MEM_BOWELS = ("OK")
  892.     if BOWELS = ("C") then MEM_BOWELS = ("CONS")
  893.     if BOWELS = ("D") then MEM_BOWELS = ("DIAR")
  894.     if BOWELS = ("I") then MEM_BOWELS = ("INCT")
  895.     if BOWELS = ("S") then MEM_BOWELS = ("OSTY")
  896.     if BLADDER = ("C") then MEM_BLAD = ("CONT")
  897.     if BLADDER = ("I") then MEM_BLAD = ("INCT")
  898.     if BLADDER = ("A") then MEM_BLAD = ("CATH")
  899.     if HOUSE = ("H") then MEM_HOUSE = ("HOUSE")
  900.     if HOUSE = ("F") then MEM_HOUSE = ("FLAT")
  901.     if HOUSE = ("3") then MEM_HOUSE = ("PART 3")
  902.     if HOUSE = ("N") then MEM_HOUSE = ("NURSE HOME")
  903.     if MEM_HOUSE = ("O") then HOUSE = ("OTHER")
  904.     ret
  905. ;DRUG     05:01:17 PM  14/ 4/90   |
  906. \STNEW     
  907.  
  908.  
  909.  
  910.  
  911.  
  912.                                  PROCEDURE ENTRY
  913.           ╔═══════════════════════════════════════════════════════════════╗
  914.           ║ &                          <&                     <&         <║
  915.           ║                                                               ║
  916.           ║  Date             Procedure                        Dr Rec Done║
  917.           ║ &         &                                        & &    &   ║
  918.           ║ &         &                                        & &    &   ║
  919.           ║ &         &                                        & &    &   ║
  920.           ║ &         &                                        & &    &   ║
  921.           ║ &         &                                        & &    &   ║
  922.           ║ &         &                                        & &    &   ║
  923.           ╚═══════════════════════════════════════════════════════════════╝
  924.           Esc - Exit and Save V=1 G=2 P=3 N=4 T=5 * for clinic,xray,path
  925.               Y=DONE S=SEE DR C=COL.SCRPT R=REPEAT O=OTHER N=NORMAL
  926.  
  927.  
  928.  
  929.  
  930.  
  931. \
  932. PATIENT.NAME
  933. ADDRESS1
  934. DATE.OF.BIRTH
  935. PROC_DATE[1]
  936. PROC[1]
  937. PROC_DOC[1]
  938. PROC_OP[1]
  939. PROC_DONE[1]
  940. PROC_DATE[2]
  941. PROC[2]
  942. PROC_DOC[2]
  943. PROC_OP[2]
  944. PROC_DONE[2]
  945. PROC_DATE[3]
  946. PROC[3]
  947. PROC_DOC[3]
  948. PROC_OP[3]
  949. PROC_DONE[3]
  950. PROC_DATE[4]
  951. PROC[4]
  952. PROC_DOC[4]
  953. PROC_OP[4]
  954. PROC_DONE[4]
  955. PROC_DATE[5]
  956. PROC[5]
  957. PROC_DOC[5]
  958. PROC_OP[5]
  959. PROC_DONE[5]
  960. PROC_DATE[6]
  961. PROC[6]
  962. PROC_DOC[6]
  963. PROC_OP[6]
  964. PROC_DONE[6]
  965. \
  966. \R CHKREP  
  967. WELL PERSON CLINIC: &                          :&          [& ] ON &        BY &      Dr.&  Drugs Chkd:& Regd:&
  968. =====================================================================================================================
  969. Onown:&   Eyes:&      Ears:&     Walking:&       Mobility:&      Stairs:&  Memory:&     Bowels:&     Bladder:&
  970. On Medctn:&   Home Help:&   Meals on wheels:&    Nurse:&               House type:&             FEV:&
  971. Smokes :&    Exrcise:&    Alcohol:&    Angina:&    Diet:&   Weight:&        Height:&       Ideal Wt:&      Oed:&
  972. Protein:&      Sugar:&      Drs. Rec. BP:&  /&     BP Chk Num:& BP:&  /&      Standing Sys:&     Pulse:&  /&/&
  973. Nurses comments:&                              &                              Nurses Sig:
  974. Age-Sex checked:&  Smear check:&  Immun checked:&  RP checked:&  Problem list Updated:&  Doctors Sig:
  975.  
  976.  
  977.  
  978.  
  979.  
  980.  
  981.  
  982.  
  983.  
  984.  
  985.  
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992.  
  993.  
  994.  
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.  
  1001.  
  1002.  
  1003.  
  1004.  
  1005.  
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011.  
  1012.  
  1013.  
  1014.  
  1015. \
  1016. PATIENT.NAME
  1017. DATE.OF.BIRTH
  1018. AGE
  1019. TD
  1020. CHECK_OP
  1021. CHK_DOC
  1022. DRUGS_CHECKED
  1023. PAT.REG
  1024. ONOWN
  1025. MEM_EYES
  1026. MEM_EARS
  1027. WALK
  1028. MEM_MOBIL
  1029. UP
  1030. MEM_MEM
  1031. MEM_BOWELS
  1032. MEM_BLAD
  1033. MEDIC
  1034. HOME_HELP
  1035. MEALS
  1036. NURSE
  1037. MEM_HOUSE
  1038. FEV
  1039. SMOK
  1040. EXERCISE
  1041. ALCOHOL
  1042. ANGINA
  1043. DIET
  1044. WT1
  1045. WT2
  1046. IDEAL_WT
  1047. OEDEMA
  1048. PROT
  1049. SUG
  1050. DOC_BP1
  1051. DOC_BP2
  1052. BP_CHECK_NUM
  1053. BP1
  1054. BP2
  1055. BP1S
  1056. PULSE
  1057. REG
  1058. APEX
  1059. COMMENT1
  1060. COMMENT2
  1061. TICK[1]
  1062. TICK[2]
  1063. TICK[3]
  1064. TICK[4]
  1065. TICK[5]
  1066. \
  1067. \SSSCREEN2 
  1068. WELL PERSON CLN: p p p p p p p p p p p p p p p p p p p p p p p p p p p  p p p p p p p p p p( p p) on  p p p p p p p p by  p p p p p p================
  1069. =============================================================== Dr.Num:p p Drugs Checked:p p Referre
  1070. d to Dr: p Nxt Chk:p p p p p p p p p Prnt N/Y:p p           ================================================
  1071. ===============================   Onown: p     Stairs: p     HH: p    Smokes:p p p     Wt:p p p p p p p    Dr
  1072. .BP:p p p p/ p p p       Eyes : p     Memory: p    MOW: p    Exerc :p p p     Ht:p p p p p p p   Chk.No:p p           
  1073.   Ears : p     Bowels: p  Nurse: p    Alcoh :p p p     IW:p p p p p p p       BP:p p p p/ p p p     Walking: p p p p p p B
  1074. ladr: p  House: p    Angina:p p p     Pr:p p p p p     St.Sys:p p p p         Mobilty: p    Medicat: p  Fev: p p p 
  1075.    Diet  :p p      Su:p p p p p     Pulse:p p p p:p p:p p p p    Com1  :p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p     Com2:p p
  1076.  p p p p p p p p p p p p p p p p p p p p p p p p p p p p p   ================================================================
  1077. ==============                                                                                  
  1078.                                                                                                 
  1079.                                                                                                 
  1080.                                                                                                 
  1081.                                                                                                 
  1082.                                                                                                 
  1083.                                                                                                 
  1084.                                                                                                 
  1085.                                                                                                 
  1086.                                                                                                 
  1087.                                                                                                 
  1088. \
  1089. PATIENT.NAME       27 A 17 1
  1090. DATE.OF.BIRTH      10 D 45 1
  1091. AGE                 2 N 56 1
  1092. CHECK_DATE          8 S 63 1
  1093. CHECK_OP            6 A 75 1
  1094. CHK_DOC             1 N  8 3
  1095. DRUGS_CHECKED       1 A 24 3
  1096. REF_CHECK           1 A 41 3
  1097. NEXT_CHECK          8 S 51 3
  1098. YES.NO              1 A 69 3
  1099. ONOWN               1 A  9 5
  1100. UP                  1 A 22 5
  1101. HOME_HELP           1 A 31 5
  1102. SMOK                2 N 43 5
  1103. WT1                 52N 53 5
  1104. DOC_BP1             3 N 69 5
  1105. DOC_BP2             3 N 73 5
  1106. EYES                1 A  9 6
  1107. MEMORY              1 A 22 6
  1108. MEALS               1 A 31 6
  1109. EXERCISE            2 N 43 6
  1110. WT2                 52N 53 6
  1111. BP_CHECK_NUM        1 N 69 6
  1112. EARS                1 A  9 7
  1113. BOWELS              1 A 22 7
  1114. NURSE               1 A 31 7
  1115. ALCOHOL             2 N 43 7
  1116. IDEAL_WT            52N 53 7
  1117. BP1                 3 N 69 7
  1118. BP2                 3 N 73 7
  1119. WALK                52N  9 8
  1120. BLADDER             1 A 22 8
  1121. HOUSE               1 A 31 8
  1122. ANGINA              2 N 43 8
  1123. PROT                4 A 53 8
  1124. BP1S                3 N 69 8
  1125. MOBILITY            1 A  9 9
  1126. MEDIC               1 A 22 9
  1127. FEV                 3 N 29 9
  1128. DIET                1 A 43 9
  1129. SUG                 32N 53 9
  1130. PULSE               3 N 68 9
  1131. REG                 1 A 72 9
  1132. APEX                3 N 74 9
  1133. COMMENT1           30 A  810
  1134. COMMENT2           30 A 4810
  1135. \
  1136. \STCHECK   
  1137.  
  1138.  
  1139.  
  1140.  
  1141.  
  1142.  
  1143.                            DO THE FOLLOWING FIRST
  1144.              ╔═══════════════════════════════════════════════════╗
  1145.              ║  1.CHECK DETAILS ON AGE SEX REGISTER ARE CORRECT. ║
  1146.              ║  2.ENTER SMEAR DETAILS.                           ║
  1147.              ║  3.ENTER IMMUNISATION DETAILS.                    ║
  1148.              ║  4.FIND OUT ABOUT REPEAT PRESCRIBING DRUGS.       ║
  1149.              ║  5.UPDATE THE PROBLEM LIST                        ║
  1150.              ╚═══════════════════════════════════════════════════╝
  1151.                  GO TO AGE/SEX RECALLS Y/N:&
  1152.  
  1153.  
  1154.  
  1155.  
  1156.  
  1157.  
  1158.  
  1159.  
  1160.  
  1161. \
  1162. YES.NO
  1163. \
  1164. \STDRUGSCR 
  1165.               Digoxin      B-blockers    Diuretics  Tnt + Ca      Ace Inhib
  1166.    ╔═════════════════════════════════════════════════════════════════════════╗
  1167.    ║CHECK║PULSE + APEX    ║FEV          ║OEDEMA    ║ANGINA       ║           ║
  1168.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1169.    ║TESTS║DIGOXIN LEVEL   ║U&E          ║U&E       ║NONE         ║U&E        ║
  1170.    ║     ║U & E           ║             ║URIC ACID ║             ║           ║
  1171.    ║     ║                ║             ║BS        ║             ║           ║
  1172.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1173.    ║SIDE ║NAUSEA,VOMIT    ║COLD EXTREMS ║GOUT      ║HEADACHE     ║DROP       ║
  1174.    ║     ║DIZZY,COLOR VIS.║             ║          ║             ║DRY COUGH  ║
  1175.    ║═════║════════════════║═════════════║══════════║═════════════║═══════════║
  1176.    ║REFER║PULSE >120 <56  ║PULSE <50    ║DYSPNEA+  ║ANGINA WORSE ║           ║
  1177.    ║     ║                ║FEV 33% LESS ║          ║             ║           ║
  1178.    ╚═════════════════════════════════════════════════════════════════════════╝
  1179.    Pulse:&  /&/&   Fev:&   Oedema:& angina:&  com:&
  1180.                                               com:&
  1181.  
  1182.  
  1183.  
  1184.  
  1185.  
  1186.  
  1187.  
  1188.  
  1189. \
  1190. PULSE
  1191. REG
  1192. APEX
  1193. FEV
  1194. OEDEMA
  1195. ANGINA
  1196. COMMENT1
  1197. COMMENT2
  1198. \
  1199.